-- card: 3640 from stack: in.2
-- bmap block id: 4992
-- flags: 0000
-- background id: 2812
-- name: Copy it to my stack


-- part 2 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=256 top=237 right=259 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Copy 'suitcase' icon
----- HyperTalk script -----
on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  put "7024 Programming Stacks:© Copyright 1988, EDUCORP:XFCNs:GetDANames 1.2" into sourceStack
  put the long name of this stack into destStack
  delete first word of destStack
  delete first character of destStack
  delete last character of destStack
  if sourceStack<>destStack then
    set lockscreen to true
    set lockmessages to true
    push this card
    go stack sourceStack
    ResCopy sourceStack,destStack,"ICON","DA suitcase"
    get the result
    -- here is where you would copy more resources.
    pop card
    choose button tool
    click at location of card button "Copy 'suitcase' icon"
    domenu clear button
    choose browse tool
    set lockmessages to false
    set lockscreen to false
    if first char of it is "E" then
      put char 4 of it into errorNumber
      errorMessage errorNumber -- defined in stack script
    else
      answer "Resource copied successfully to this stack." with "OK"
    end if
  else
    answer "Copy these buttons to your own stack!" with "OK"
  end if
end mouseUp




-- part 3 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=65 top=237 right=259 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 21
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Copy GetDANames XCMD
----- HyperTalk script -----
on mouseUp  --DO NOT CHANGE LINE 2! IT IS MODIFIED BY ANOTHER SCRIPT!
  put "7024 Programming Stacks:© Copyright 1988, EDUCORP:XFCNs:GetDANames 1.2" into sourceStack
  put the long name of this stack into destStack
  delete first word of destStack
  delete first character of destStack
  delete last character of destStack
  if sourceStack<>destStack then
    set lockscreen to true
    set lockmessages to true
    push this card
    go stack sourceStack
    ResCopy sourceStack,destStack,"XCMD","GetDANames"
    get the result
    -- here is where you would copy more resources.
    pop card
    choose button tool
    click at location of card button "Copy GetDANames XCMD"
    domenu clear button
    choose browse tool
    set lockmessages to false
    set lockscreen to false
    if first char of it is "E" then
      put char 4 of it into errorNumber
      errorMessage errorNumber -- defined in stack script
    else
      answer "Resource copied successfully to this stack." with "OK"
    end if
  else
    answer "Copy these buttons to your own stack!" with "OK"
  end if
end mouseUp




-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=304 top=263 right=298 bottom=381
-- title width / last selected line: 0
-- icon id / first selected line: 21432 / 21432
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button